$n = 0;

for (0 .. (1000000-1)) {
    $n += 1;
}

print "$n\n";
